HIGH
  CALL  SETCRTC
  LD  A,99
  LD  (WK1FD0),A
  LD BC,$1FD0
 